home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00016_Script_#go to issues script < prev    next >
Text File  |  1997-07-29  |  808b  |  29 lines
  1. global current_pm, prev_frame, profiss_rolls, the_rolls,virtualRolloverList,next_bsub, menusub_notgone
  2. on mouseUp
  3.   if rollover(the clickon) then
  4.     if the timer > 90 then
  5.       if menusub_notgone = 0 then
  6.         waitcursor the clickon
  7.         -- go to issues
  8.         put current_pm into item 1 of iss_fr
  9.         put "iss" into item 2 of iss_fr
  10.         put the frame into prev_frame
  11.         
  12.         --    set the_rolls = profiss_rolls
  13.         
  14.         if soundbusy(1) then 
  15.           sound fadeOut 1, 30
  16.         end if
  17.         
  18.         see_sprite([15],true)
  19.         puppettransition 01,4,6
  20.         
  21.         go to frame marker(string(iss_fr))
  22.         
  23. --        set_cursors(profiss_rolls)
  24.         --  do field string(iss_fr)
  25.         cursor 0
  26.       end if
  27.     end if
  28.   end if
  29. end